home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
clipper
/
hlpsy203.zip
/
HELPNET.PRG
< prev
next >
Wrap
Text File
|
1994-03-10
|
2KB
|
39 lines
* HelpSys2.03 test (Network Example and Test sample)
*
* For normal .DBF and .NTX testing, leave both comment sections below
* commented
*
MEMVAR GetList // To eliminate GETLIST warnings
PROCEDURE Main()
* * * * FOR COMIX * * * * * * * *
* REQUEST DBFCMX // Force a link to FlexFile
* RDDSETDEFAULT("DBFCMX") // Set the Default RDD to Comix
* * * * FOR FLEXFILE* * * * * * *
* REQUEST FLEXFILE // Force a link to FlexFile
* RDDSETDEFAULT("FLEXFILE") // Set the Default RDD to FlexFile
* * * * * * * * * * * * * * * * *
* V_SUPERRDD("DBFCMX") // Set COMIX on top of FlexFile
* * * * * * * * * * * * * * * * *
CLEAR SCREEN
* SetShowStatus(.T.) // Turn on Network status messages
// Open database and related indexes under the alias of test
IF NetUse("TEST", .F., 60, {"TEST1","TEST2","TEST3"},"TEST")
GOTO TOP // GOTO the top of the database
IF NetRecLock() // Lock this record before allowing changes
@ 1, 3 GET Test->Field1 // Place database/variable gets
@ 3, 3 GET Test->Field2
@ 4, 3 GET Test->Field3
READ // Read and replace fields
ELSE // ERROR locking record
PrintAlert("Could not lock the TEST record")
ENDIF
ELSE // ERROR Opening database
PrintAlert("Could not open the TEST database")
ENDIF
USE // Close database
RETURN